home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 002a / corewar.zip / BUG.PRG < prev    next >
Text File  |  1990-07-05  |  201b  |  12 lines
  1. BGN Bug
  2.     JMP 4            ;Skip the data statements
  3. A    DAT -Grid_Size
  4. B    DAT 0
  5. C    JWN 2 @A        ;Don't hit self
  6.     MOV #0 @A        ;Bomb
  7.     RND B #3        ;Random walk
  8.     SUB #Grid_Size+1 A
  9.     ADD B A
  10.     JMP C            ;Iterate
  11. END
  12.